// Copyright (C) 1997-2002 Alias|Wavefront,
// a division of Silicon Graphics Limited.
//
// The information in this file is provided for the exclusive use of the
// licensees of Alias|Wavefront.  Such users have the right to use, modify,
// and incorporate this code into other products for purposes authorized
// by the Alias|Wavefront license agreement, without fee.
//
// ALIAS|WAVEFRONT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
// INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
// EVENT SHALL ALIAS|WAVEFRONT BE LIABLE FOR ANY SPECIAL, INDIRECT OR
// CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
// DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
// TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
// PERFORMANCE OF THIS SOFTWARE.
//
//
// Alias|Wavefront Script File
// MODIFY THIS AT YOUR OWN RISK
//
// Creation Date:  14 January 1999
//
//
//
//  Procedure Name:
//      polyClrVertPaintToolScript
//
//  Description:
//	create wrapper around the polyClrVertPaint command
//
//  Input Arguments:
//		4 ==> enter the tool (create if necessary)
//      3 ==> property sheet box
//
//  Return Value:
//      None.
//

global proc string polyClrVertPaintToolScript( int $setToTool )
//
//	Description :
//		4 ==> enter the tool
{
	string $tool = "polyClrVertPaintContext";
	if( ! `attrPaintCtx -exists $tool` ) {
		rememberCtxSettings `attrPaintCtx -i1 "paintVertexColour.xpm" -unv true -bcn "polyClrVertPaint" $tool`;
	}

	// Enter color-per-vertex shaded mode if the switch indicates so
	//
	if (`optionVar -q polyAutoShowColorPerVertex`) {
		optionVar -intValue colorShadedDisplay 1
			-intValueAppend colorShadedDisplay 1;
		DisplaySmoothShaded;
		polyOptions -cs 1;
	}
	setToolTo $tool;

	if( 3 == $setToTool ) {
		toolPropertyWindow;
	}
	else if( 4 != $setToTool ) {
		warning( "Wrong input for polyClrVertPaintToolScript" );
	}
	return $tool;
}
